On Error Resume Next
Dim wsh,ye
Set wsh=createobject(“wscript.shell”)
for I=1 to 50
wscript sleep 700
wsh.AppActivate
wsh sendKeys “^v”
wsh sendKeys i
wsh sendKeys “%s”
next
wscript.quit

